home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / wb / TextLoaderNG.lha / TextLoader / Install_TLNG next >
Text File  |  1999-03-31  |  24KB  |  620 lines
  1. ; Installer script for the Diz-Explorer program
  2. ;
  3. ; Changed for the TextLoaderNG 1.12  (13.03.99)
  4. ;
  5. ;******************************************************************************
  6. ;     _  _      ____
  7. ;    / \/ \    /___ |   
  8. ;   / /\/\ \     _ ||
  9. ;  / / /\ \ \   |_|||
  10. ; / / /  \ \ \ ____||
  11. ;/_/ /_/\_\ \_\\____|
  12. ;
  13. ; $VER: 3.00_Diz-Explorer_Installer (Nov-24-1997) 
  14. ; 
  15. ; If you wish to use any part of this installer you must ask us.
  16. ;
  17. ; Installer    by Jochen Grus & Martin Gentile ©1996-1999 
  18. ; Diz-Explorer by Jochen Grus ©1997-99 
  19. ; Last Update: FEB-11-1999
  20. ;---------------------------------------
  21. ;        This could be your logo! 
  22. ;           __  __      _______ 
  23. ;          /  \/  \    /_____/ \
  24. ;         /  \  /  \  /  \  /  /
  25. ;        /  / \/ \  \/ /\ \/  / 
  26. ;       /  /  /  -\  \ \/ /  /  
  27. ;      /  /  /  __    \__/  /   
  28. ;      \_/  /__/  \_/\_____/    
  29. ;
  30. ;       Explorer Version 4.6e
  31. ;
  32. ;          © 1997-1999 by: 
  33. ;
  34. ;   Jochen Grus and Martin Gentile
  35. ;---------------------------------------
  36. ;
  37. ;
  38. ;
  39. ;
  40. ; TextLoader by Pascal Gisin ©1994-99 
  41. ;
  42. ; TextLoaderNG by Jochen Grus & Pascal Gisin ©1999 
  43. ;
  44. ;
  45. ;  
  46. ;  
  47. ;******************************************************************************
  48. (procedure Explor (set JOH 1) ( (while (< JOH 4444)  (set JOH (+ JOH 1)) )  ) )
  49.  
  50. (procedure InformX
  51. (working (cat "\n\n"
  52.               " Word 6,7,8\n"
  53.               " WordPerfect\n"
  54.               " AmiWriter\n"
  55.               " WordWorth\n"
  56.               " FinalWriter\n"
  57.               " HTML\n"
  58.               " RTF\n"
  59.               " \n"
  60.          )           
  61. )
  62. )
  63. (procedure InformY
  64. (working (cat "\n\n"
  65.               "\n"
  66.               "\n"
  67.               "TextLoaderNG Version 1.13\n"
  68.               "\n"
  69.               "by\n"
  70.               "\n"
  71.               "   Jochen Grus & Pascal Gisin   \n"
  72.               "\n"
  73.          )           
  74. )
  75. )
  76. (InformY)
  77.  
  78. (Explor)(Explor)
  79. (InformX)(Explor)
  80. (InformY)(Explor) (InformX)(Explor)
  81. (InformY)(Explor) (InformX)(Explor)
  82. (InformY)(Explor) (InformX)(Explor)
  83. (InformY)(Explor) (InformX)(Explor)
  84. (InformY)(Explor) (InformX)(Explor)
  85. (InformY)(Explor) (InformX)(Explor)
  86. (InformY)(Explor) (InformX)(Explor)
  87. (InformY)(Explor) (Explor) (Explor)
  88.  
  89. ;*** System Stuff ***
  90. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  91. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  92. (set osver (/ (getversion "LIBS:version.library") 65536))
  93. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  94. (set fastmem (- totmem graphmem))
  95.  
  96. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  97. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  98. (if (= osver 41) (set workbench "3.5"))
  99.  
  100. (set cpu (database "cpu"))
  101. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  102. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  103. (if (= cpu 68040) (set #cpu 4)) 
  104. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  105. (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 6) )
  106.  
  107. (if (> cpu 68010)  (set #fpuGuess 0)  (set #fpuGuess 1) )
  108.    
  109. (set vernum1 (getversion "TextLoader")) (set ver2 (/ vernum1 65536)) 
  110. (set rev1 (- vernum1 (* ver1 65536) ) ) (set TextLoaderver (cat ver1 "1.1" rev1))
  111.  
  112. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  113. (set lan 0)
  114.  
  115. (if (= "english"     lanfound) (set lan 0))
  116. (if (= "deutsch"     lanfound) (set lan 1))
  117. (if (= "italiano"    lanfound) (set lan 2)) 
  118. (if (= "francais"    lanfound) (set lan 3)) 
  119. (if (= "svenska"     lanfound) (set lan 4)) 
  120. (if (= "norsk"       lanfound) (set lan 5)) 
  121. (if (= "nederlands"  lanfound) (set lan 6)) 
  122. (if (= "dansk"       lanfound) (set lan 7)) 
  123.  
  124. (set #English       "English")
  125. (set #Deutsch       "Deutsch")
  126. (set #Italiano     "Italiano")
  127. (set #Francais     "Francais")
  128. (set #Svenska       "Svenska")
  129. (set #Norsk           "Norsk")
  130. (set #Nederlands "Nederlands")
  131. (set #Dansk           "Dansk")
  132.  
  133. (set mfound 0) (set newicon1 1) 
  134. (set keeper 1) (set firsttime 0)
  135.  
  136. ;***********************************************************************
  137. ; The English Installation Strings for the TextLoaderNG
  138. ;***********************************************************************
  139. (set #about (cat "\n\n\n\nWelcome to the TextLoaderNG " TextLoaderver "\n\n\nCopyright © 1994-99 by\n\nJochen Grus & Pascal Gisin\n") )
  140. (set #about2 (cat "\n\n\n\n Contact:\n\n Jochen.Grus@rhein-main.net \n\n or\n\n PGISIN@nextron.ch\n\n\n\n") )
  141. (set #about3 (cat "\n\n\n\n Updates & Stuff at:\n\n www.nextron.ch/~force/\n\n or\n\nhttp://www.geocities.com/SiliconValley/Grid/8661/") )
  142. (set #aboutpacker (cat "\n\n\n\nNothing yet - go on with the installation... ") )
  143. (set #aboutdevices (cat "\n\n\n\nNow you should copy the font to the >Fonts< directory. ") )
  144. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N I N G -               Installation found the following file in the C-directory: LHACHECK. You should delete this file because it has the BBS-Trojan VIRUS!!! ") )
  145. (set #aboutdatatype1 (cat "\n\n\n\n- W A R N I N G -\n\n Installation found Datatypes.library in Libs:\n\n V45.4. or higher!  If the size of this file is 32748 (Normal 27kb) bytes you should know that this one a VIRUS!") )
  146. (set #askcpu "\nThe installer has found the following CPU:\n")
  147. (set #askcpu2 "\nThe installer program has found a CPU. The installer should show correctly what kind of cpu is installed...\n")
  148. (set #whereTextLoader "Where do you wish to install the TextLoader. A directory called 'Textloader' will be created if one is not there. If a copy of Textloader is found it will be backed up.")
  149. (set #filethere1 "\n\nThe installer has found an TextLoader version ")
  150. (set #filethere2 " at ")
  151. (set #filethere3 "\n\nThe file will be renamed to ")
  152. (set #filethere4 " and it will then be moved to ")
  153. (set #backuptoXXX "Back-UP to file named 'TextLoader.")
  154. (set #copyover "Copy Over Old Version")
  155. (set #oktodelete1 "\nIs it ok to delete the older TextLoader binary so that the TextLoader Directory can be made?\n")
  156. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ TextLoader binary so that the TextLoader Directory can be made?\n")
  157. (set #TextLoaderfound "\nThe Installer has found a copy of TextLoader already installed. What do you want to do?\n")
  158. (set #newicon "\nDo you wish to copy over The Textloader Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  159. (set #nonewicon  "No  - ToolTypes already set.")
  160. (set #yesnewicon "Yes - Copy over the old TextLoader Icon.")
  161. (set #whatcat "\nSelect the TextLoader Language catalog you wish to install.\n")
  162. (set #wherecat "\nWhere do you wish to install the TextLoader Language Catalog? There is no need for it yet. Default is ")
  163. (set #catnofind "Can not find this catalog in this TextLoader archive. No need for it yet.")
  164. (set #whatdocs "\nWhat TextLoader documentation would you like to install?\n")
  165. (set #wheredocs "Where would you like the TextLoader documentation you selected to be installed?")
  166. (set #byebye (cat "\nTextLoader Install Complete!\n\n" ))
  167. (set #setup_help
  168.         (cat
  169.             "TextLoaderNG needs an Assign in main directory to "
  170.             "properly setup. If you skip this pass you MUST "
  171.             "manually enter it later in your User-StartUp or "
  172.             "in a shell prior to run TextLoaderNG."
  173.         )
  174.     )
  175.  
  176.  
  177.  
  178. ;***********************************************************************
  179. ; The German Installation Strings for the TextLoaderNG
  180. ;***********************************************************************
  181.  
  182. (if (= lan 1)
  183. (
  184.  (set po 1)
  185.  
  186. (set #about (cat "\n\n\n\nWillkommen zum TextLoaderNG " TextLoaderver "\n\n\nCopyright © 1994-99 by\n\nJochen Grus & Pascal Gisin\n") )
  187. (set #about2 (cat "\n\n\n\n Kontakt:\n\n Jochen.Grus@rhein-main.net \n\n or\n\n PGISIN@nextron.ch\n\n\n\n") )
  188. (set #about3 (cat "\n\n\n\n Updates & Stuff at:\n\n www.nextron.ch/~force/\n\n or\n\nhttp://www.geocities.com/SiliconValley/Grid/8661/") )
  189. (set #aboutpacker (cat "\n\n\n\nNichts vorhanden - Weiter mit der Installation. ") )
  190. (set #aboutdevices (cat "\n\n\n\nJetzt sollten Sie den Font in das >Fonts< Verzeichnis installieren. ") )
  191. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N U N G -